Attribute VB_Name = "globalMethods"
Option Explicit



Public Sub checkAndHandleNonInitializedObjectCustomErrorNumber(ByVal pr_Object As Object, pr_ErrorCode As Long)
If pr_Object Is Nothing Then
    Err.Raise pr_ErrorCode
End If
End Sub

Public Sub checkAndHandleNonInitializedObjectCustomErrorNumberAndDesc(ByVal pr_Object As Object, pr_ErrorCode As Long, pr_ErrorDesc As String)
If pr_Object Is Nothing Then
    Err.Raise pr_ErrorCode, pr_ErrorDesc
End If
End Sub





